home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
nyquist.src
< prev
next >
Wrap
Text File
|
1991-05-29
|
957b
|
29 lines
%%HP: T(3)A(D)F(.);
@ NYQUIST, by Raymond Wong
DIR
G
\<< \-> S '10/(S*(S @ edit this transfer function, leave \-> S
+1)*(S+2))' @ in tact
\>>
PPAR { (-5,-10) @ Real/Imaginary range of plot
(.1,20) W 0 (0,0)
FUNCTION C }
NYQUIST @ Nyquist point plot
\<< ERASE .001 @ Adjust .001 100 to appropriate start,
100 @ stop frequency range
FOR W i W * G
\->NUM PIXON PICT RCL
\->LCD .1 @ Adjust .1 to appropriate freq. step rate
STEP
\>>
NYQL @ Nyquist line plot
\<< ERASE .001 i
* G \->NUM .001 100 @ Adjust .001 100 to appropriate start,
FOR W i W * G @ stop frequency range
\->NUM DUP 3 ROLLD
LINE PICT RCL \->LCD
.5 @ Adjust .5 to appropriate freq. step rate
STEP
\>>
END